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DIRECTORY 

lODefs: FROM "iodefs". 
TimeDefs: FROM "timedefs"; 

OutputDefs: DEFINITIONS » 
BEGIN 

PutTab: PROCEDURE; 

PutCR: PROCEDURE; 

PutChar: PROCEDURE [c.-CHARACTER] ; 

PutString: PROCEDURE [siSTRING]; 

PutTime: PROCEDURE [t: TimeDefs. PackedTime] ; 

OpenOutput: PROCEDURE [root: STRING, ext: STRING]; 

CloseOutput: PROCEDURE; 

-- numbers 

NumberFormat : TYPE = lODefs .NumberFormat; 

PutOctal: PROCEDURE [val : UNSPECIFIED]; 

PutDecimal: PROCEDURE [val: CARDINAL]; 

PutNumber: PROCEDURE [val: CARDINAL, format: NumberFormat]; 

END... 


